home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / LUNA152A / SCRIPTE / ASCTABLE.LUS < prev    next >
Encoding:
Text File  |  1999-06-11  |  918 b   |  37 lines
  1. ; LunaScript by rgf
  2. ; Beispiel Nummer 2:
  3. ; Kleine Rechnereien, und eine Ascii-Tabelle erzeugen:
  4.  
  5.  f%=62
  6.  f%=add(f%,3)
  7.  keypress(f%,0)                ; dürfte Wert 65 sein, also Ascii-"A"
  8.  return(0)
  9.  tput "Wert von f% : "        ; zur Kontrolle beide ausgeben
  10.  tput div(f%,2)                ; Wert ausgeben
  11.  return(0)                    ; Zeilenumbruch
  12.  tput "Wert von 'A': "
  13.  tput asc("A")                ; Wert ausgeben
  14.  return(0)
  15.  return(0)
  16.  
  17. ; nächste Spielerei: die Ascii-Tabelle mit zwei
  18. ; Schleifen erzeugen (Tabulatorexpansion am besten ausschalten, sonst
  19. ; ist das Tab-Zeichen nicht zu sehen).
  20.  
  21.  tput "          "            ; erstmal 10 Leerzeichen einrücken
  22.  
  23.  f%=1                        ; Bei Ascii 1 anfangen, Null ist nicht erlaubt
  24.                              ; und wird sowieso ingnoriert.
  25.  for a%=1 to 10                ; Zeilen
  26.    for i%=f% to add(f%,25)
  27.      keypress(i%,0)
  28.    next i%
  29.    add f%,26
  30.    return(0)
  31.  next a%
  32.  return(0) 
  33.  tput "fertig...=:)"
  34.  return(0)
  35.  return(0)
  36.  end()
  37.